Sub ()

    Dim ġ As Range
    
    On Error GoTo Err_Handler
    
        Set ġ = Worksheets("data").Cells(Rows.Count, "B").End(xlUp)
        Set ġ = ġ.Offset(1)
        
        With ġ
        
            .Value = Range("C2").Value
            .Offset(, 1).Value = Range("C4").Value
            .Offset(, 2).Value = Range("C6").Value
        
        End With

    Exit Sub
    
Err_Handler:

    MsgBox "    ߻߽ϴ."

End Sub
